Top 10k strings from 1984 - The Game of Economic Survival (1983)(Incentive Software).tap in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TAP] /
Back to the directory listing
18 +YEAR-1983 12 (((((((((((((((((((((((((((( 6 ;"PRESS ANY KEY": 6 4 RAT=RAT+10 4 ;"WAGES ROUND ";YEAR 3 C(N,V3)=C(N,V4)-C(N,V2): 3 ;"YOUR OFFER IS INSANE!":: 3 ;"REJECTED!": 3 ;"ACCEPTED!": 3 1984 3 *R(Y)))*10 3 )*BANKRATE)/100 3 "ENTER YOUR OFFER "; 2 c(V1,V3)<.052 2 S ANK KEY ": 2 RAT=RAT-20 2 RAT=RAT-10 2 ;"PRESS ANY KEY" 2 ;"IN THE ELECTION OF ";YEAR: 2 ;"CAN'T PAY OUT BENEFITS!": 2 ;" ": 2 ,V4;"IN THE ELECTION OF ";YEAR: 2 ))+(B(V5)*B(12 2 (C(N,V1)*B(8 2 "ENTER REVISED FIGURE "; 2 """""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""" 2 1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1 xx 1 q>BANKRATE+BANKRATE*.2 1 q>A(V2)+A(V2)*V4 1 q<C(x+V1,V4)*.9 1 q<BANKRATE-BANKRATE*.3 1 q<A(V2)-A(V2)*.1 1 c(n,V3)<y-V1 1 YEAR=YEAR+V1: 1 XOD=XOD+V3 1 XOD=XOD+V2: 1 V7;" BUDGET DEFICIT IS M` "; 1 V6;"PRESS ANY KEY": 1 V6,V3;"Marches against authority, passive resistance, urban terrorism: all are rising and the Police need more equipment and personnel." 1 V6,V2;"MORE HOUSES ARE BEING BUILT THAN IN THE LAST TEN YEARS!": 1 V5;V,R(n)*128 1 V5,V;" 1 INFLATION (%p.a.) 2 UNEMPLOYMENT(mill.) 3 GDP (B`) 4 GOLD RESERVES (B$) 5 INDUST O/P (B`) 6 TRADE BALANCE (B`) 7 AV. WAGE (`/Yr) 8 EXCHANGE RATE($/`)" 1 V5,V;" AGEING HARDWARE NEEDS TO BE REPLACED. WE REQUIRE ";S;" %" 1 V5,V;" (EACH INDEX SHOWN 1984=100)" 1 V5,V6;"MINIMUM LENDING RATE" 1 V5,V4;"BRITISH RAILWAYS BOARD" 1 V4;V,R(N)*128 1 V4,V;" 1 V3,V5;"GOVERNMENT INVESTMENTS 1 V3,V5;"DEFENCE COUNCIL REPORT" 1 V2,V5;"MAJOR INDICATORS ";YEAR 1 V1;" TOTAL SPENDING...."; 1 V1;" TOTAL REVENUE....."; 1 V1;" GOVERNMENT BALANCE SHEET " 1 V1;" BUDGET BALANCES EXACTLY ": 1 V1,V;" THIS CHART SHOWS HOW WELL BALANCED THE ECONOMY IS. -TRY TO KEEP IT BALANCED-" 1 V1,V5;"UNEMPLOYMENT (Mill.)": 1 V1,V5;"TRADE BALANCE (B`)": 1 V1,V5;"INFLATION (% p.a.)": 1 V1,V5;"GOLD RESERVES (B$)": 1 V1,V5;"AVERAGE WAGE (`/Yr)": 1 V1,V4;"EXCHANGE RATE (US$/`)": 1 V1,V4;"DEPARTMENTAL EXPENDITURE": 1 V1,V3;"INDUSTRIAL OUTPUT (B`)": 1 V1,V3;"GROSS DOMESTIC PRODUCT (B`)": 1 Tfff)*BANKRATE)/100 1 TOT=TOT+C(N,V4): 1 RAT=RAT-80 1 RAT=RAT-50 1 RAT=RAT-(R(1 1 RAT=RAT+R(76 1 RAT=RAT+A(18 1 RAT=RAT+(V2-R(16 1 RAT=RAT+(R(31 1 RAT=RAT+(31 1 RAT=RAT+(15 1 R(Y+V1)>30 1 R(Y+V1)=R(Y+V1)+( 1 R(Y+V1)=R(Y)*A(10 1 R(Y+V1)=((B(7 1 R(Y+V1)<V5 1 Q(V3)=(A(V3)*B(V3)/40 1 Q(V2)=A(V2) 1 NOW LOADING 1984 1 N,V;" ": 1 JUMP TO HERE 1 IMF=IMF-X: 1 IMF=-R(Y+46 1 D(V6)=D(V4)-D(V5) 1 D(V4)=A(V5)+A(V6)+A(7 1 D(V3)=D(V1)-D(V2) 1 D(V2)=A(V3)+A(V4)+A(7 1 D(V1)=A(V1)+A(V2)+A(10 1 C(V6,V4)=C(V6,V4)+C(V6,V4)*.5 1 C(V6,V1)=C(V6,V1)+.1 1 C(V5,V1)=C(V5,V1)*V2 1 C(V3,V4)=C(V3,V4)+V3 1 C(V3,V1)=C(V3,V1)+.3 1 C(V2,V4)=C(V2,V2)+C(V2,V3) 1 C(N,V4)=C(N,V2)+C(N,V3): 1 BANKRATE=q 1 BANKRATE=10 1 A(V1)=c(11 1 A(N)=Q(N): 1 A$="*CABINET MEETING*CABINET MEETING": 1 A$=" SOCIAL SECURITY DEFENCE HEALTH EDUCATION & SCIENCE TRADE & INDUSTRY TRANSPORT LAW & ORDER ENVIRONMENT HOUSING OTHER DEPARTMENTS TOTAL " 1 A$=" PRESS ANY KEY TO CONTINUE ": 1 A$=" (%) 1 INCOME TAX 2 VAT 3 CORP TAX (`/Wk) 4 OLD AGE PENSION 5 UNEMP. BENEFIT 6 CHILD ALLOWANCE" 1 ;"Yr Bal.": 1 ;"YOUR RESIGNATION IS ACCEPTED" 1 ;"YOU WERE NOT RE-ELECTED!": 1 ;"YOU WERE DEFEATED!": 1 ;"YOU SECURED A 3RD TERM!": 1 ;"YOU SECURED A 2ND TERM!": 1 ;"YOU MADE IT": 1 ;"YOU MADE IT TO ";YEAR: 1 ;"WILL YOU? (PRESS Y 1 ;"WARNING ";XOX: 1 ;"SELECT Y 1 ;"SELECT Y 1 ;"SELECT OPTION (ENTER TO MOVE ON)" 1 ;"RATE IS NOT SO MOBILE "; 1 ;"Press any key": 1 ;"PRESS Y 1 ;"PRESS ENTER TO MOVE ON TO M.L.R.": 1 ;"PRESS ANY KEY"; 1 ;"PRESS ANY KEY": 1 ;"POUND DEVALUED BY 15%!" 1 ;"OIL LEVY PROPOSED" 1 ;"If you wish to alter any departmental BUDGET then select the index no." 1 ;"INDUSTRIAL GRANTS": 1 ;"HOUSING BOOM" 1 ;"HEALTH PROVISIONS" 1 ;"FUNDS GROSSLY INSUFFICIENT": 1 ;"FUNDS GROSSLY 1 ;"FUNDING IS FALLING BEHIND": 1 ;"FOREIGN AID": 1 ;"FIGURE": 1 ;"Expenditure: B` ";C(X+1 1 ;"Employees: "; 1 ;"DHSS CRISIS!": 1 ;"DEMONSTRATIONS" 1 ;"CURRENT": 1 ;"CONGRATULATIONS YOU'VE SURVIVED ";YEAR: 1 ;"BUDGET ";YEAR 1 ;"BANK OF ENGLAND": 1 ;"An oil levy of ";bankrate/2 1 ;"ANNUAL GRANT B` ";Q;" " 1 ;"ANNUAL GRANT B` ";A(2 1 ;"AFRICA EMBROILED IN WAR!": 1 ;"A CUT THIS SIZE IS NOT ON!": 1 ;"(Enter the BUDGET you want for this Department.)": 1 ;" RUNAWAY GROWTH OF PUBLIC SPENDING BRINGS DOWN THE GOVERNMENT!": 1 ;" REMAINS AFTER": 1 ;" PROGRAM INITIALISING " 1 ;" PRIVATE SECTOR GETS ";X;"%": 1 ;" MILLION": 1 ;" GOVERNMENT EMPLOYEES GET ";X1;"%": 1 ;" DEPT WAGES PAID OUT": 1 ;" CITY FEELS RECESSION BITE!" 1 ;" BUDGET SURPLUS IS M` "; 1 ;" BRITAIN GETS B` ";S;" EEC REBATE": 1 ;" AN ACCEPTABLE FIGURE ": 1 ;" ALTHOUGH HELP GIVEN TO THE 3RD WORLD DECLINES, THE ECONOMY IS NOT ASKED TO SUPPORT ANY MORE. ": 1 ;" AID CAN ONLY BE RAISED SLOWLY TO EASE ECONOMIC DISRUPTION. ": 1 ;" '1984' THE GAME OF ECONOMIC SURVIVAL 1 ;" TO 1999! ": 1 ;" SOURCES OF REVENUE M` " 1 ;" PERFORMANCE RATING "; 1 ;" IF YOU WANT TO SEE JUST HOW YOUR RECORD ON ANY OF THESE INDICATORS STANDS ENTER THE INDEX NUMBER ON THE LEFT.": 1 ;" DETAILS OF SPENDING M` " 1 ;" (SUGGEST RANGE B`0-5 UNLESS BANKS ARE LOSING LARGE SUMS)": 1 ;" (A FINAL RECORD OF YOUR TIME IN OFFICE CAN NOW BE SEEN.)" 1 ;" BENEFITS ARE BEGINNING TO FALL BEHIND INFLATION ": 1 ;" TRY AGAIN ": 1 ;" PRESS ENTER TO FINISH " 1 ;" PRESS ANY KEY ": 1 ;" ": 1 ;" ": 1 9800 1 9800 1 -B(V2))*10 1 -B(V1))*10 1 -(BANKRATE/20 1 ,v1;"PUBLIC SPENDING IS OUT OF HAND!": 1 ,V;"PRESS ENTER WHEN YOU'VE FINISHED" 1 ,V;" THE STOCK EXCHANGE HAS CRASHED AND THE BANKS CEASED TRADING!": 1 ,V;" POOR COUNTRIES RELY ON AID AND IF YOU CUT IT PEOPLE WILL DIE! ": 1 ,V;" GOVT INDST POPLN BANKS WORLD " 1 ,V;" BECAUSE YOU HAVE HAD TO BORROW FROM THE I.M.F. YOU MUST REPAY PART OF THE DEBT OF B` "; 1 ,V;" AND AS UNEMLOYMENT GOES PAST THE FIVE MILLION MARK THE PM GETS A VOTE OF NO CONFIDENCE": 1 ,V;" has been put forward. Do you agree to it?" 1 ,V;" YOU MUST MAINTAIN AN ADEQUATE LEVEL OF SPENDING,REMEMBERING THAT WAGE RISES AND INFLATION PUSH UP THE DEMAND FOR MONEY!" 1 ,V;" The art of negotiating is an important one in government. If you bid too low you will lose, if too high you could contribute to inflation!": 1 ,V;" TOO RAPID A REFLATION OF THE ECONOMY HAS KILLED RECOVERY!": 1 ,V;" HOW MUCH WILL YOU INVEST IN THE FINANCIAL INSTITUTIONS?": 1 ,V;" DEFENCE BUDGET INCREASE"; 1 ,V;" IS INDUSTRY EXPANDING TOO FAST? THEN IMPOSE A LEVY ON INDUSTRIAL PROFITS!" 1 ,V;" Press any key ": 1 ,V6;" B` ";Q;" IS REASONABLE ": 1 ,V5;"UNREALISTIC CHANCELLOR!"; 1 ,V5;"IS THE LOAN AVAILABLE?" 1 ,V5;"DEPARTMENTAL MANAGEMENT": 1 ,V5;" TRY 5 - 20% RANGE ": 1 ,V5;" PRESS ANY KEY! ": 1 ,V4;"YOUR ANNUAL PERFORMANCE RATING IS: "; 1 ,V4;"Will the Home Secretary sanction more spending?" 1 ,V4;"WEEKLY BENEFIT IS ` ";B(5 1 ,V4;"PUBLIC SECTOR CLAIM ";Q;" %" 1 ,V4;" REALLOCATE DEPARTMENTAL SPENDING FOR ";YEAR;" ?": 1 ,V3;"UNIONS FORCE YOU TO REDUCE UNEMPLOYMENT BY TAKING ON MORE GOVERNMENT EMPLOYEES!": 1 ,V3;"UNEMPLOYMENT IS "; 1 ,V3;"THIS DEPARTMENTAL BUDGET!": 1 ,V3;"THE REGULATOR Provision exists to allow you to alter the rates of tax by up to 10% (i.e you could put VAT up from 15% to 16.5%. You may REDUCE rates as desired or alter Benefits as you wish." 1 ,V3;"PUSH ANY KEY TO TRY AGAIN" 1 ,V3;"PRIVATE SECTOR CLAIM ";Q;" %" 1 ,V3;"FUNDS GROSSLY INSUFFICIENT": 1 ,V3;"CIVIL SERVANTS CLAIM ";Q;" %" 1 ,V3;" PUBLIC SECTOR GETS ";X;"%": 1 ,V3;" PUBLIC SECTOR GETS ";Q;"%": 1 ,V3;" PRIVATE SECTOR GETS ";Q;"%": 1 ,V3;" COLLAPSE OF SHARE PRICES COULD HAPPEN UNLESS YOUR TREASURY STEPS IN WITH A HEFTY LOAN TO FINANCIERS" 1 ,V3)*7.49625 1 ,V2;"YOU TRIED TO REDUCE GREATLY": 1 ,V2;"WELFARE STILL BEHIND WAGES!" 1 ,V2;"WE CAN'T COPE! REDUCE GRANT!": 1 ,V2;"PUBLIC UNREST OVER INFLATION BRINGS DOWN THE GOVERNMENT!": 1 ,V2;"Investment in BR is planned for next year, do you lend your support, given that it means budget increases? " 1 ,V2;"CURRENT ANNUAL AID IS B` "; 1 ,V2;" YOU HAVE CAUSED COMPLETE AND UTTER INDUSTRIAL COLLAPSE!": 1 ,V2;" THE BRITISH POPULATION HAS BECOME SO IMPOVERISHED YOU HAVE CAUSED A REVOLUTION!": 1 ,V2;" MASSIVE TRADING IMBALANCE ": 1 ,V2;" IS THERE ANY TRUTH IN THE RUMOUR THAT YOU ARE GOING TO INTRODUCE NEW EXCHANGE CONTROLS?" 1 ,V2;" GOVT DEPARTMENTS HAVE BEEN STARVED OF FUNDS AND HAVE CEASED TO FUNCTION": 1 ,V2;" YOU HAVE EMPTIED NATIONAL COFFERS BY MISMANAGEMENT!": 1 ,V2;" Will you underwrite it?"; 1 ,V2+((N-V1)*V6); 1 ,V1;a$(((n-1 1 ,V1;"YOUR CONSTANT MISCALCULATION OF DEPARTMENTAL BUDGETS HAS PROVED YOUR 1 ,V1;"PENSIONERS AND PEOPLE ON STATE BENEFITS HAVE FALLEN BEHIND SO FAR IT CAUSES FULL-SCALE RIOTS": 1 ,V1;"ENTER REPAYMENT IN ";YEAR: 1 ,V1;"DO YOU INTEND TO ALLOW A MORE COMPREHENSIVE BUT MORE COSTLY NATIONAL HEALTH SERVICE?" 1 ,V1;" THE BASE RATE MUST BE FIXED" 1 ,V1;" GOVERNMENT EMPLOYEES GET ";Q;"%": 1 ,V1;" BY YOU. IT STANDS AT "; 1 ,V1; "INTERNATIONAL MONETARY FUND": 1 ,V1)=C(V7,V1)+.1 1 +Y)=R(Y+106 1 *R(Y+((N-1 1 *((B(V4)*B(15 1 )=bankrate/10 1 )=A(V3)+A(V4)+A(9 1 )=A(V1)+A(V2)+A(V5)+A(V6)+A(13 1 )=(A(V5)+A(V6)+A(7 1 )-bankrate/5 1 )-(R(Y+106 1 )+Y*BANKRATE/100 1 )*B(V2)/10 1 ))*(R(Y+31 1 (q*100)/100 1 (YEAR-1983 1 (R(YEAR-1983 1 (A(V1)*1000 1 ((n-V1)*32 1 ((RATO+RAT)/Y)/10 1 ((Q-(C(X+1 1 ((C(V2,V3)+C(V2,V3)*S/100 1 ((BANKRATE+.005 1 &fff,103.1 1 "New Expenditure (B`) "; 1 "INVESTMENT IN B` ? "; 1 "ENTER NEW BANK RATE "; 1 ""xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1 " VALUE ADDED TAX"; 1 " UNEMPL.BENEFIT"; 1 " PUBLIC SECTOR WAGES"; 1 " PENSIONS"; 1 " NEW WEEKLY OAP? "; 1 " NEW VAT RATE? "; 1 " NEW UNEMPLOYMENT BENEFIT? "; 1 " NEW INCOME TAX RATE? "; 1 " NEW CORPORATION TAX RATE? "; 1 " NEW CHILD ALLOWANCE? "; 1 " INTEREST ON LOANS"; 1 " INCOME TAX"; 1 " GRANTS TO INDUSTRY"; 1 " GOVT.DEPT.WAGES"; 1 " FOREIGN AID"; 1 " CUSTOMS & EXCISE"; 1 " CORP. TAX"; 1 " CONTRACTS"; 1 " CHILD ALLOWANCE"; 1 SELECT OPTION 1 1983 RMH CARTER & INCENTIVE SOFTWARE" 1 ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 1 1